(server-process-filter): Don't collapse // at start of file name.

diff --git a/lisp/server.el b/lisp/server.el
index 7649660b72a551ebd7b23b494e02bafb98ec33a4..61dc29f4ed36cd40ab78c0bf65e6a7c50913ff36 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -207,7 +207,8 @@ Prefix arg means just kill any existing server communications subprocess."
                    ;; ARG is a file name.
                    ;; Collapse multiple slashes to single slashes,
                    ;; since in Emacs a multiple slash is not equiv to one.
-                   (while (string-match "//+" arg)
+                   ;; However, don't do this at the start of the file name.
+                   (while (string-match "//+" arg 1)
                      (setq arg (replace-match "/" t t arg)))
                    (setq files
                          (cons (list arg lineno)